home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 34 / 034.d81 / falcon & enemy (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  5.1 KB  |  130 lines
  1. 1 a=a+1
  2. 2 ifa=1thenload"falcon.ml1",8,1
  3. 3 ifa=2thenload"falcon.ml2",8,1
  4. 5 poke53280,0:poke53281,0:print"[147]"chr$(142)
  5. 10 gosub55
  6. 11 print"[147] press for:[146]    ships    time!"
  7. 12 print"(easy) f-1:[146]     50       400"
  8. 13 print"       f-2:[146]     75       525"
  9. 14 print"       f-3:[146]     100      600"
  10. 15 print"       f-4:[146]     125      625"
  11. 16 print"       f-5:[146]     150      600"
  12. 17 print"       f-6:[146]     175      525"
  13. 18 print"       f-7:[146]     200      400"
  14. 19 print"(hard) f-8:[146]     225      225"
  15. 20 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]enter  f-1:[146] to  f-8:[146]"
  16. 21 print"your choice is:  ";
  17. 22 geta$:ifa$=""then22
  18. 23 a=asc(a$):ifa<133ora>140then22
  19. 24 ifa=133thensh=50:px=400:print" f-1 [146]       ":goto32
  20. 25 ifa=137thensh=75:px=525:print" f-2 [146]       ":goto32
  21. 26 ifa=134thensh=100:px=600:print" f-3 [146]       ":goto32
  22. 27 ifa=138thensh=125:px=625:print" f-4 [146]       ":goto32
  23. 28 ifa=135thensh=150:px=600:print" f-5 [146]       ":goto32
  24. 29 ifa=139thensh=175:px=525:print" f-6 [146]       ":goto32
  25. 30 ifa=136thensh=200:px=400:print" f-7 [146]       ":goto32
  26. 31 ifa=140thensh=225:px=225:print" f-8 [146]       "
  27. 32 poke767,sh:ford=0to700:next
  28. 33 print"please wait: the universe is being made";:ford=0to1400:next
  29. 50 print"[147]":f=peek(53278):poke49989,194:poke49994,63:goto100
  30. 55 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  31. 57 fora=1to23:print"[221]"spc(38)"[221]";:next
  32. 59 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
  33. 60 print"          loadstar presents:"
  34. 62 print"         falcon and the enemy"
  35. 64 print"[150]            by thomas hayes"
  36. 65 print"            copyright  1987"
  37. 66 print"        [154]press space [154]to continue.":poke198,.
  38. 68 geta$:ifa$<>" "then68
  39. 70 return
  40. 100 ifag=0thengosub4000
  41. 101 sys49987:pokev+21,143:forl=0topx:sysxx:poke2,(rnd(1)*15)+1
  42. 102 printal$o$;:sysxx+6:fors=0to 5:sysxx:sysxx+12:sysxx+12:sysxx+12
  43. 103 ag=0:ifpeek(198)<>0then61000
  44. 110 poke821,(rnd(1)*181)+58:poke822,(rnd(1)*159)+60:sysxx+6:sysxx+12
  45. 115 qo=peek(767):ifqo=0orqo>225then300
  46. 130 sysxx:printbl$"+"peek(767);:sysxx+6:nexts
  47. 140 sysxx:print"[157][157][157][157][157]"peek(767)-sh;:sysxx+6:sysxx:print"[157] ";g$px-l;
  48. 150 sysxx+6:sysxx:printal$i$o$;:sysxx+6:nextl:goto1000
  49. 300 gosub2000:
  50. 400 print"*****************************************";
  51. 401 print" you have saved the lives of millions *";
  52. 402 bs$="*                                      *":printbs$bs$bs$bs$bs$;
  53. 403 print"****************************************[146]";
  54. 404 print"congratulations";:gosub3000:print
  55. 405 print"press any key for another mission"
  56. 406 print"^^^^^^^^^^^^^^^^^^^^^^^^^^^"
  57. 407 print"^[146]   press space to quit   ^"
  58. 408 print"^^^^^^^^^^^^^^^^^^^^^^^^^^^";:goto1060
  59. 1000 gosub2000:
  60. 1010 ri$="[159]":r$="[157][157][157][157][157][157][157][157][157]"
  61. 1020 rp$="[219][157][157][157][157][213][192][192][177][192][192][201][157][157][157][157][157][157][157][157][213][203]     [202][201]":rp$=rp$+r$:
  62. 1030 rp$=rp$+"[221] [156]r.i.p.[159][221]"+r$+"[221]       [221]"+r$+"[221]       [221]"+r$+"[221][150]your[159]   [221]"
  63. 1040 rp$=rp$+r$+"[221][150]grave[159]  [221]"+r$+"[221][150]awaits[159] [221]"+r$+"[173][192][192][192][192][192][192][192][189]"
  64. 1045 printri$rp$
  65. 1050 print" you have failed! [146]":gosub3000:print"   the results of"
  66. 1051 print" your efforts lie":print" to the right."
  67. 1052 print" [156][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][223][146]":print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][169]":gosub3000
  68. 1053 print"      however [146]":gosub3000:print"   the mother ship"
  69. 1054 print" was able to fight":print" off the attack."
  70. 1055 gosub3000:print"   you still have":print" a chance.":gosub3000
  71. 1056 printspc(15)"if you wish":printspc(12)"another mission,"
  72. 1057 printspc(11)"[156]                   ":printspc(11)"  [146] press any key [156]  "
  73. 1058 printspc(11)"                   "
  74. 1059 printspc(10)"<press space to quit>"
  75. 1060 ifpeek(197)=64then1060
  76. 1061 ifpeek(197)<>60thenprint"[147]":restore:goto10
  77. 1999 goto60000
  78. 2000 poke49989,234:poke49994,49:sys49987:s=54272
  79. 2005 forl=stos+24:pokel,0:next:pokev+21,0:print"[147]":return
  80. 3000 fort=0 to 950:nextt:return
  81. 4000 print"[147]";
  82. 4010 v=53248:rem **********************
  83. 4011 poke2040,192:pokev,24:pokev+1,142:pokev+39,7:
  84. 4012 poke2041,193:pokev+2,248:pokev+3,142:pokev+40,7:
  85. 4013 poke2042,194:pokev+4,136:pokev+5,50:pokev+41,7:
  86. 4014 poke2043,195:pokev+6,136:pokev+7,229:pokev+42,7:
  87. 4015 pokev+43,5:pokev+28,192:pokev+37,2:pokev+38,7
  88. 4016 poke2046,200:poke2047,199:pokev+46,1:
  89. 4020 z$="":z1$="         [146]"
  90. 4021 z2$=" [146]        [146]":z3$=" [156]        [146]":z4$=" [156] [146]time![156]  [146]"
  91. 4022 z5$=" [156] [146]ships[156]  [146]":z6$=z3$
  92. 4023 bl$="     [157][157][157][157][157]"
  93. 4024 g$="    [157][157][157][157]":xx=49625
  94. 4025 al$=""
  95. 4026 i$="":o$="[159]a      [157][157][157][157][157][157][157] l     [157][157][157][157][157][157][157]  i    "
  96. 4027 o$=o$+"[157][157][157][157][157][157][157]   v   [157][157][157][157][157][157][157]    e  [157][157][157][157][157][157][157]     ! [146]"
  97. 4050 print"[147]";z$;z1$;z$;z2$;z$;z2$;z$;z2$;z$;z3$;z$;z4$;z$;z3$;z$;z1$;z$;
  98. 4051 printz2$;z$;z2$;z$;z2$;z$;z3$;z$;z5$;z$;z3$;z$;z1$;z$;z2$;z$;z2$;z$;
  99. 4052 printz2$;z$;z2$;z$;z2$;z$;z2$;z$;z3$;z$;z6$;z$;z3$;z$;"        [146]";
  100. 4053 poke2023,160:printbl$"[157][192][192][192][192][192][192][192]";:poke56295,2:
  101. 4056 print"";
  102. 4057 print"[156]any[157][157][157]key[157][157][157][157]quits"
  103. 4100 forx=55296 to 55416 step40:fora=0to30:pokex+a,1:nexta:nextx
  104. 4112 forx=56136 to 56256 step40:fora=0to30:pokex+a,1:nexta:nextx
  105. 4113 forx=55456 to 56096 step40:fora=0to5:pokex+a,1:pokex+a+25,1:next:next
  106. 4114 fory=55462 to 56102 step 40:fora=0 to 18:pokey+a,12:nexta:nexty
  107. 4115 forz=55668 to 55908 step 40:fora=0 to 6:pokez+a,11:nexta:nextz
  108. 4200 s=54272:forl=stos+24:pokel,0:nextl:pokes+24,15
  109. 4205 rem ******** voice #1 ***********
  110. 4210 pokes+5,10:pokes+6,242:pokes+1,255:
  111. 4215 rem ******** voice #2 ***********
  112. 4220 pokes+12,10:pokes+13,2:pokes+8,25:pokes+9,9:pokes+10,55
  113. 4225 rem ******** voice #3 ***********
  114. 4230 pokes+19,31:pokes+20,241:pokes+15,5:pokes+18,129
  115. 4500 return
  116. 60000 rem end
  117. 60005 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  118. 60007 ifer<>63thenend
  119. 60010 load"hello connect",8
  120. 60020 end
  121. 60030 :
  122. 61000 rem quit?
  123. 61010 poke53248+21,0:poke54296,0
  124. 61020 print"do you want to quit (y/n)?"
  125. 61030 ifpeek(197)=64then61030
  126. 61032 q9=peek(197):poke198,0
  127. 61040 ifq9=25thenprint"[147]":goto1056
  128. 61050 ifq9=39thenag=1:print"[145][145]                          ":poke54296,15:goto100
  129. 61060 goto61030
  130.